home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / stk-3.003 / stk-3 / stk / 3.1 / demos / Wimage1.stklos < prev    next >
Encoding:
Text File  |  1996-07-29  |  632 b   |  24 lines
  1. ;;;;
  2. ;;;; STk adaptation of the Tk widget demo.
  3. ;;;;
  4. ;;;; This demonstration script displays two image widgets.
  5. ;;;;
  6.  
  7. (require "Button")
  8. (require "Image")
  9.  
  10. (define (demo-image1)
  11.   (let ((w (make-demo-toplevel "image1"
  12.                    "Image Demonstration #1"
  13.                    "This demonstration displays two images, each in a separate label widget.")))
  14.     
  15.     (pack (make <Label> 
  16.         :parent w
  17.         :image (make <Photo-Image> 
  18.                  :file (string-append *STk-images* "earth.gif")))
  19.       (make <Label> 
  20.         :parent w
  21.         :image (make <Photo-Image> 
  22.                  :file (string-append *STk-images* "earthris.gif")))
  23.       :side "top" :padx ".5m" :pady ".5m")))
  24.